home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / loadpole / lnetwks.bas < prev    next >
BASIC Source File  |  1992-02-19  |  4KB  |  124 lines
  1. 10 CLS
  2. 20 FOR X=1 TO 16:PRINT"":NEXT
  3. 30 PRINT"           ********* TWO ELEMENT MATCHING NETWORK DESIGNER *********"
  4. 40 PRINT"                     -------------------------------------"
  5. 50 PRINT"                       ******** BY MARTIN EDER *********"
  6. 60 FOR X=1 TO 8:PRINT"":NEXT
  7. 70 FOR X=1 TO 1000:NEXT
  8. 80 O$=CHR$(234)
  9. 90 INPUT "WHAT IS THE INPUT IMPEDANCE TO THE L NETWORK? ",R1
  10. 100 PRINT"ENTER THE COMPLEX IMPEDANCE OF THE LOAD;"
  11. 110 PRINT"FIRST THE RESISTIVE COMPONENT,"
  12. 120 PRINT"THEN THE REACTIVE COMPONENT."
  13. 130 INPUT"RESISTIVE (OHMS) ",R
  14. 140 INPUT"REACTIVE (CAPACTIVE=(-);INDUCTIVE=(+)) ",X
  15. 150 A=X/R1:B=R/R1
  16. 160 GOSUB 640
  17. 170 IF A>.5 THEN 180 ELSE 190
  18. 180 IF B>1 THEN 250
  19. 190 IF A>0 THEN 200 ELSE 230
  20. 200 IF B<1 THEN 210 ELSE 230
  21. 210 D=SQR((A*A)+((B-.5)*(B-.5)))
  22. 220 IF D>.5 THEN 250
  23. 230 IF A<.5 THEN 240 ELSE 370
  24. 240 IF B>1 THEN 310 ELSE 370
  25. 250 GOSUB 430
  26. 260 C1=((-2*R1*X)+K)/(2*(R-R1))
  27. 270 L1=((R1*X)+(C1*(R-R1)))/R
  28. 280 PRINT"NETWORK A USED"
  29. 290 N$="A"
  30. 300 GOTO 480
  31. 310 GOSUB 430
  32. 320 L1=(2*R1*X)+K
  33. 330 C1=(L1*(R-R1)-(R1*X))/R
  34. 340 PRINT"NETWORK B USED"
  35. 350 N$="B"
  36. 360 GOTO 480
  37. 370 L1=(SQR(R1*R-R*R))-X
  38. 380 S2=(L1+X)*(L1+X)
  39. 390 C1=(S2+(R*R))/(L1+X+.0000001)
  40. 400 PRINT"NETWORK C USED"
  41. 410 N$="C"
  42. 420 GOTO 480
  43. 430 W=4*R1*R1*X*X
  44. 440 Y=4*R1*(R-R1)
  45. 450 Z=X*X+R*R
  46. 460 K=SQR(W+Y*Z)
  47. 470 RETURN
  48. 480 PRINT"CAP. REACTANCE= ";INT(C1*100)/100;O$
  49. 490 PRINT"INDUCT. REACTANCE= ";INT(L1*100)/100;O$
  50. 500 GOSUB 640
  51. 510 INPUT"FREQ. IN MHZ.?",F
  52. 520 C=1/(C1*2*3.14159*F)
  53. 530 L=L1/(2*3.14159*F)
  54. 540 C=INT(C*10000000#)/10
  55. 550 L=INT(L*10000000#)/10000000#
  56. 560 PRINT"CAP.= ";C;"PICOFARADS"
  57. 570 PRINT"CAP. REACTANCE= ";INT(C1*10)/10;O$
  58. 580 PRINT"INDUCT.= ";L;"MICROHENRIES"
  59. 590 PRINT"INDUCT. REACTANCE= ";INT(L1*10)/10;O$
  60. 600 PRINT" INPUT Z= ";R1;O$
  61. 610 PRINT"COMPLEX Z= ";R;" + ";X
  62. 620 GOSUB 640
  63. 630 GOTO 790
  64. 640 PRINT"---------------------------------"
  65. 650 RETURN
  66. 660 PRINT"     --------"
  67. 670 PRINT"----! INDUCT !--------------------"
  68. 680 PRINT"     --------      !"
  69. 690 PRINT"                   !"
  70. 700     PRINT"IN             ----------      OUT"
  71. 710     PRINT"                CAPACITY"
  72. 720     PRINT"               ----------"
  73. 730     PRINT"                   !"
  74. 740     PRINT"                   !"
  75. 750     PRINT"-----------------------------------"
  76. 760 PRINT"":PRINT"NETWORK A"
  77. 770 INPUT"TO CONTINUE ENTER ANY NUMBER",Z
  78. 780 GOTO 560
  79. 790 PRINT"WANT TO:"
  80. 800 PRINT"1-ENTER A NEW FREQUENCY?"
  81. 810 PRINT"2-DESIGN A NEW NETWORK?"
  82. 820 PRINT"3-REVIEW NETWORK ";N$;" ?"
  83. 830 PRINT "4-DESIGN A COIL?"
  84. 840 PRINT "5-EXIT TO SYSTEM?"
  85. 850 PRINT"6-STOP?"
  86. 860 INPUT D
  87. 870 IF D=1 THEN 510
  88. 880 IF D=2 THEN 90
  89. 890 IF D=4 THEN RUN "COILS.BAS"
  90. 900 IF D=5 THEN SYSTEM
  91. 910 IF D=6 THEN 1230
  92. 920 FOR X=1 TO 8 :PRINT"":NEXT
  93. 930 IF N$="A" THEN 660
  94. 940 IF N$="B" THEN 960
  95. 950 IF N$="C" THEN 1100
  96. 960 PRINT"      ! C !"
  97. 970 PRINT"      ! A !"
  98. 980 PRINT"------! P !---------------------OUT"
  99. 990 PRINT"      !   !            !"
  100. 1000 PRINT"      !   !            !"
  101. 1010 PRINT"                   -------- "
  102. 1020 PRINT"                  ! INDUCT !"
  103. 1030 PRINT"IN                 --------"
  104. 1040 PRINT"                       !"
  105. 1050 PRINT"                       !"
  106. 1060 PRINT"---------------------------------"
  107. 1070 PRINT"NETWORK B"
  108. 1080 INPUT"TO CONTINUE ENTER ANY NUMBER",Z
  109. 1090 GOTO 560
  110. 1100 PRINT"                   --------"
  111. 1110 PRINT"------------------! INDUCT !------"
  112. 1120 PRINT"      !            --------"
  113. 1130 PRINT"      !"
  114. 1140 PRINT"   -------"
  115. 1150 PRINT"     CAP                       OUT"
  116. 1160 PRINT"   -------"
  117. 1170 PRINT"      !"
  118. 1180 PRINT"      !"
  119. 1190 PRINT"-----------------------------------"
  120. 1200 PRINT"NETWORK C"
  121. 1210 PRINT"":INPUT"TO CONTINUE ENTER ANY NUMBER",Z
  122. 1220 GOTO 560
  123. 1230 END
  124.